home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / TWILIGHT / TL_SOURC.E / PASCAL / HEADER_P.S < prev    next >
Encoding:
Text File  |  1993-07-13  |  2.7 KB  |  104 lines
  1.     TEXT
  2.                 XREF    TLM_START  
  3.  
  4.  
  5.               bra.w        start1
  6. tlm_magic:      DC.L 'XTLM'     ;Magic-Zahl (eXtended TwiLight Module)
  7. tlm_version:    DC.W $0102      ;Modul Versionsnummer (z.B.1.02)
  8. tlm_min_acc:    DC.W 0          ;erforderliche ACC-Version,0 = läuft mit allem
  9. ;                      123456789012345678901234
  10. tlm_name:       DC.B 'Dummymodul              ' ;Modulname (24 Zeichen)
  11. tlm_author:     DC.B 'Dummyuser               ' ;Urheber des Moduls
  12. tlm_icon:    
  13.     DC.L    %00000000111111111111111100000000
  14.     DC.L    %00000000111111111111111100000000
  15.     DC.L    %00000000111111111111111100000000
  16.     DC.L    %00000000111111111111111100000000
  17.     DC.L    %00000000111111111111111100000000
  18.     DC.L    %00000000111111111111111100000000
  19.     DC.L    %00000000111111111111111100000000
  20.     DC.L    %00000000111111111111111100000000
  21.  
  22.     DC.L    %11111111000000000000000011111111
  23.     DC.L    %11111111000000000000000011111111
  24.     DC.L    %11111111000000000000000011111111
  25.     DC.L    %11111111000000000000000011111111
  26.     DC.L    %11111111000000000000000011111111
  27.     DC.L    %11111111000000000000000011111111
  28.     DC.L    %11111111000000000000000011111111
  29.     DC.L    %11111111000000000000000011111111
  30.  
  31.     DC.L    %00000000111111111111111100000000
  32.     DC.L    %00000000111111111111111100000000
  33.     DC.L    %00000000111111111111111100000000
  34.     DC.L    %00000000111111111111111100000000
  35.     DC.L    %00000000111111111111111100000000
  36.     DC.L    %00000000111111111111111100000000
  37.     DC.L    %00000000111111111111111100000000
  38.     DC.L    %00000000111111111111111100000000
  39.             
  40. tlm_mem_reg:    DC.L 1024       ;erforderlicher zusätzlicher Speicher für das Modul
  41. flags:          DC.W %00000001  ;flags
  42.  
  43. ;reserve:        DS.L 0            ; noch nicht
  44. ;user_mem:        DS.L 0
  45.  
  46. all_reg    REG    D0-D7/A0-A6
  47.  
  48.  
  49. start1:
  50.      move.l       4(a7),a0            ; LESE ARGUMENT
  51.      bra.w     TLM_START       ;zum Modulanfang
  52.  
  53.  
  54.  
  55.     XDEF    VDI
  56.     XREF    VDIPARBLK
  57. VDI:
  58.  
  59. ;    MOVEM.L    #all_reg,-(SP)
  60.     MOVE.L    #VDIPARBLK,D1
  61.     MOVEQ    #115,D0
  62.     TRAP    #2
  63. ;    MOVEM.L    (SP)+,#all_reg
  64.     RTS
  65.     XDEF    MS200
  66. MS200:
  67.     MOVE.L    D7,-(SP)        ; rette D7
  68.     pea        0
  69.     move.w    #$20,-(sp)        ; loc_var=super(0)
  70.     trap    #1
  71.     move.l    #$4BA,D7        ; get tick timer
  72.     move.l    d0,2(sp)        ; save return new argument for super 
  73.     move.w    #$20,(sp)        ; loc_var=super(0)
  74.     trap     #1                ; super(loc_var)
  75.     addq    #6,sp            ; remove args from stack
  76.     move.l    D7,d0            ; set return value in D0
  77.     move.l    (sp)+,d7        ; restore D7
  78.     rts
  79.     
  80.     XDEF    MERKEDIR
  81. MERKEDIR:
  82.     MOVE.L    D7,-(SP)        ; rette D7
  83.     MOVE.L    D0,d7
  84.     pea        0
  85.     move.w    #$20,-(sp)        ; loc_var=super(0)
  86.     trap    #1
  87.     move.l    D7,$380            ; set post mortem invalid
  88.     move.l    d0,2(sp)        ; save return new argument for super 
  89.     move.w    #$20,(sp)        ; loc_var=super(0)
  90.     trap     #1                ; super(loc_var)
  91.     addq    #6,sp            ; remove args from stack
  92.     move.l    (sp)+,d7        ; restore D7
  93.     rts
  94.     
  95.     
  96.     
  97.     
  98.     
  99.     
  100.     
  101.     
  102.     end
  103.     
  104.